home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 95 / Amiga News 95.iso / dpat / dpat94 / rexx / teaser.rexx < prev   
OS/2 REXX Batch file  |  1995-01-29  |  2KB  |  57 lines

  1. /*-------------------------------------*/
  2. /* Teaser.rexx v1.1      (c) 1995 Ldfa */
  3. /*                                     */
  4. /* Script de connection sur le serveur */
  5. /*    Teaser en T2 pour AmiTEL 2.1     */
  6. /*                                     */
  7. /*-------------------------------------*/
  8.  
  9. Envoi        = '13 41'x
  10. Retour        = '13 42'x
  11. Repetition    = '13 43'x
  12. Guide        = '13 44'x
  13. Annulation    = '13 45'x
  14. Sommaire    = '13 46'x
  15. Correction    = '13 47'x
  16. Suite        = '13 48'x
  17.  
  18. Login  = "Mon pseudo"            /* Inscrire ici votre pseudonyme */
  19. Passwd = "Mon mot de passe"        /* et votre mot de passe         */
  20.  
  21. address AMITEL_REXX            /* Nom du Port ARexx d'AmiTEL */
  22.  
  23. options results
  24.  
  25. TIMEOUT 60                /* Temps d'attente maximum */
  26.  
  27. WAIT "service:"                /* Attend 'service:' */
  28. if RC ~= 0 then                /* Si temps d'attente dépassé */
  29.    do
  30.       REQINFO "Le serveur ne répond pas!"    /* Affiche Resquester */
  31.       exit                    /* Fin du programme */
  32.    end
  33.  
  34. SEND "178270383" || Envoi        /* Envoi '178270383' */
  35.  
  36. DELAY 10                /* Attend 10 secondes */
  37.  
  38. SEND Suite                /* Envoi SUITE */
  39.  
  40. WAIT "Pseudo"                /* Attend 'Pseudo' */
  41. if RC ~= 0 then                /* Si temps d'attente dépassé */
  42.    do
  43.       REQINFO "Le serveur ne répond pas!"    /* Affiche Resquester */
  44.       exit                    /* Fin du programme */
  45.    end
  46.  
  47. SEND Login || Envoi            /* Envoi pseudonyme */
  48.  
  49. WAIT "Pass"                /* Attend 'Pass' */
  50. if RC ~= 0 then                /* Si temps d'attente dépassé */
  51.    do
  52.       REQINFO "Le serveur ne répond pas!"    /* Affiche Resquester */
  53.       exit                    /* Fin du programme */
  54.    end
  55.  
  56. SEND Passwd || Envoi            /* Envoi mot de passe */
  57.